home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autose1g / frmtechd.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-06-24  |  14.5 KB  |  386 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTechDone 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "TechDone form"
  6.    ClientHeight    =   5025
  7.    ClientLeft      =   615
  8.    ClientTop       =   1305
  9.    ClientWidth     =   8520
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    ScaleHeight     =   5025
  16.    ScaleWidth      =   8520
  17.    ShowInTaskbar   =   0   'False
  18.    Begin VB.PictureBox picTech 
  19.       BackColor       =   &H00000000&
  20.       Height          =   2670
  21.       Left            =   2025
  22.       ScaleHeight     =   174
  23.       ScaleMode       =   3  'Pixel
  24.       ScaleWidth      =   281
  25.       TabIndex        =   3
  26.       Top             =   645
  27.       Width           =   4275
  28.       Begin VB.Image imgTech 
  29.          Height          =   2640
  30.          Left            =   -30
  31.          Stretch         =   -1  'True
  32.          Top             =   -45
  33.          Width           =   4245
  34.       End
  35.    End
  36.    Begin VB.CommandButton cmdOK 
  37.       Caption         =   "&OK"
  38.       Default         =   -1  'True
  39.       Height          =   345
  40.       Left            =   3450
  41.       TabIndex        =   0
  42.       Top             =   4410
  43.       Width           =   1455
  44.    End
  45.    Begin VB.Image imgShield 
  46.       Height          =   585
  47.       Left            =   1140
  48.       Picture         =   "FRMTECHD.frx":0000
  49.       Stretch         =   -1  'True
  50.       Top             =   4020
  51.       Visible         =   0   'False
  52.       Width           =   795
  53.    End
  54.    Begin VB.Image imgBioRocket 
  55.       Height          =   525
  56.       Left            =   7635
  57.       Picture         =   "FRMTECHD.frx":CD82
  58.       Stretch         =   -1  'True
  59.       Top             =   2730
  60.       Visible         =   0   'False
  61.       Width           =   810
  62.    End
  63.    Begin VB.Image imgLaser 
  64.       Height          =   495
  65.       Left            =   7635
  66.       Picture         =   "FRMTECHD.frx":2BB90
  67.       Stretch         =   -1  'True
  68.       Top             =   2190
  69.       Visible         =   0   'False
  70.       Width           =   780
  71.    End
  72.    Begin VB.Image imgMissile1 
  73.       Height          =   525
  74.       Left            =   15
  75.       Picture         =   "FRMTECHD.frx":4BD02
  76.       Stretch         =   -1  'True
  77.       Top             =   3930
  78.       Visible         =   0   'False
  79.       Width           =   795
  80.    End
  81.    Begin VB.Image imgWarpScan 
  82.       Height          =   555
  83.       Left            =   30
  84.       Picture         =   "FRMTECHD.frx":59CEC
  85.       Stretch         =   -1  'True
  86.       Top             =   3270
  87.       Visible         =   0   'False
  88.       Width           =   825
  89.    End
  90.    Begin VB.Image imgScience2 
  91.       Height          =   555
  92.       Left            =   60
  93.       Picture         =   "FRMTECHD.frx":681D6
  94.       Stretch         =   -1  'True
  95.       Top             =   2625
  96.       Visible         =   0   'False
  97.       Width           =   750
  98.    End
  99.    Begin VB.Image imgScience1 
  100.       Height          =   585
  101.       Left            =   30
  102.       Picture         =   "FRMTECHD.frx":BC7E4
  103.       Stretch         =   -1  'True
  104.       Top             =   1980
  105.       Visible         =   0   'False
  106.       Width           =   750
  107.    End
  108.    Begin VB.Image imgCloaking 
  109.       Height          =   555
  110.       Left            =   45
  111.       Picture         =   "FRMTECHD.frx":CBCE6
  112.       Stretch         =   -1  'True
  113.       Top             =   1395
  114.       Visible         =   0   'False
  115.       Width           =   765
  116.    End
  117.    Begin VB.Image imgJam 
  118.       Height          =   510
  119.       Left            =   30
  120.       Picture         =   "FRMTECHD.frx":FD238
  121.       Stretch         =   -1  'True
  122.       Top             =   795
  123.       Visible         =   0   'False
  124.       Width           =   765
  125.    End
  126.    Begin VB.Image imgDeepScanner 
  127.       Height          =   555
  128.       Left            =   30
  129.       Picture         =   "FRMTECHD.frx":10523A
  130.       Stretch         =   -1  'True
  131.       Top             =   180
  132.       Visible         =   0   'False
  133.       Width           =   720
  134.    End
  135.    Begin VB.Image imgUltraWarp 
  136.       Height          =   570
  137.       Left            =   7635
  138.       Picture         =   "FRMTECHD.frx":114D5C
  139.       Stretch         =   -1  'True
  140.       Top             =   3480
  141.       Visible         =   0   'False
  142.       Width           =   795
  143.    End
  144.    Begin VB.Image Image4 
  145.       Height          =   180
  146.       Left            =   945
  147.       Picture         =   "FRMTECHD.frx":1263EE
  148.       Stretch         =   -1  'True
  149.       Top             =   0
  150.       Width           =   6465
  151.    End
  152.    Begin VB.Image Image3 
  153.       Height          =   180
  154.       Left            =   945
  155.       Picture         =   "FRMTECHD.frx":12A6C0
  156.       Stretch         =   -1  'True
  157.       Top             =   4860
  158.       Width           =   6495
  159.    End
  160.    Begin VB.Image Image2 
  161.       Height          =   4995
  162.       Left            =   7380
  163.       Picture         =   "FRMTECHD.frx":12E992
  164.       Stretch         =   -1  'True
  165.       Top             =   15
  166.       Width           =   225
  167.    End
  168.    Begin VB.Image Image1 
  169.       Height          =   5025
  170.       Left            =   720
  171.       Picture         =   "FRMTECHD.frx":1322B4
  172.       Stretch         =   -1  'True
  173.       Top             =   0
  174.       Width           =   225
  175.    End
  176.    Begin VB.Image imgResource 
  177.       Height          =   555
  178.       Left            =   7620
  179.       Picture         =   "FRMTECHD.frx":135BD6
  180.       Stretch         =   -1  'True
  181.       Top             =   1575
  182.       Visible         =   0   'False
  183.       Width           =   810
  184.    End
  185.    Begin VB.Image imgPlanetShield 
  186.       Height          =   495
  187.       Left            =   7665
  188.       Picture         =   "FRMTECHD.frx":148C18
  189.       Stretch         =   -1  'True
  190.       Top             =   1005
  191.       Visible         =   0   'False
  192.       Width           =   810
  193.    End
  194.    Begin VB.Image imgMech 
  195.       Height          =   525
  196.       Left            =   7605
  197.       Picture         =   "FRMTECHD.frx":159FEA
  198.       Stretch         =   -1  'True
  199.       Top             =   420
  200.       Visible         =   0   'False
  201.       Width           =   855
  202.    End
  203.    Begin VB.Label lblTitle 
  204.       BackColor       =   &H00000000&
  205.       BeginProperty Font 
  206.          Name            =   "MS Sans Serif"
  207.          Size            =   9.75
  208.          Charset         =   0
  209.          Weight          =   700
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.       ForeColor       =   &H0000FF00&
  215.       Height          =   285
  216.       Left            =   2040
  217.       TabIndex        =   2
  218.       Top             =   330
  219.       Width           =   4665
  220.    End
  221.    Begin VB.Label lblDescription 
  222.       BackColor       =   &H00000000&
  223.       ForeColor       =   &H0000FF00&
  224.       Height          =   960
  225.       Left            =   2055
  226.       TabIndex        =   1
  227.       Top             =   3330
  228.       Width           =   4290
  229.       WordWrap        =   -1  'True
  230.    End
  231. Attribute VB_Name = "frmTechDone"
  232. Attribute VB_GlobalNameSpace = False
  233. Attribute VB_Creatable = False
  234. Attribute VB_PredeclaredId = True
  235. Attribute VB_Exposed = False
  236. Option Explicit
  237. Private Sub cmdOK_Click()
  238. 'continue with game
  239. Unload Me
  240. End Sub
  241. Private Sub Form_Activate()
  242. 'draw lots of stars on the screen
  243. Randomize
  244. Dim a, X, Y, X2, Y2 As Integer
  245. 'draw white stars
  246. For a = 1 To 40
  247.    X = Int(Rnd * 900)
  248.    Y = Int(Rnd * Me.ScaleHeight)
  249.    X2 = Int(Rnd * 1000) + 7585
  250.    Y2 = Int(Rnd * Me.ScaleHeight)
  251.    Me.PSet (X, Y), vbWhite
  252.    Me.PSet (X2, Y2), vbWhite
  253. Next a
  254. 'draw dark grey stars
  255. Dim grey
  256. grey = &H808080
  257. For a = 1 To 50
  258.    X = Int(Rnd * 800)
  259.    Y = Int(Rnd * Me.ScaleHeight)
  260.    X2 = Int(Rnd * 1000) + 7585
  261.    Y2 = Int(Rnd * Me.ScaleHeight)
  262.    Me.PSet (X, Y), grey
  263.    Me.PSet (X2, Y2), grey
  264. Next a
  265. 'draw some blue stars
  266. Dim blue
  267. blue = &H800000
  268. For a = 1 To 25
  269.    X = Int(Rnd * 800)
  270.    Y = Int(Rnd * Me.ScaleHeight)
  271.    X2 = Int(Rnd * 1000) + 7585
  272.    Y2 = Int(Rnd * Me.ScaleHeight)
  273.    Me.PSet (X, Y), blue
  274.    Me.PSet (X2, Y2), blue
  275. Next a
  276. PlaySoundEffect "Research"
  277. End Sub
  278. Private Sub Form_Load()
  279. 'set pictures and text based on what tech has been researched
  280. 'Techlevel variable set in form_load of frmGameScreen
  281. Select Case TechLevel
  282. Case 1
  283.     'assault troops researched
  284.     imgTech.Picture = imgMech.Picture
  285.     lblTitle.Caption = "Assault Technology Research Completed!"
  286.     lblDescription.Caption = "Mechanized Assault Troops deliver several times the offensive power of standard troops and can operate in toxic environments unsuited for humans. Mechs are required for Sabotage Missions, once Level I Ship Shields have been researched."
  287. Case 2
  288.     'planetary shield research done
  289.     imgTech.Picture = imgPlanetShield.Picture
  290.     lblTitle.Caption = "Planetary Shield Research Completed!"
  291.     lblDescription.Caption = "An array of space-based laser defenses provides the highest level of planetary defense."
  292. Case 3
  293.     'resource research done
  294.     imgTech.Picture = imgResource.Picture
  295.     lblTitle.Caption = "Improved Resource Production Achieved!"
  296.     lblDescription.Caption = "Planet resource production can be increased up to 80% with the construction of advanced production facilities."
  297. Case 5
  298.     'scanner research done
  299.     imgTech.Picture = imgDeepScanner.Picture
  300.     lblTitle.Caption = "Space Scanner Researched!"
  301.     lblDescription.Caption = "Short-range scanners can be installed on any planet to allow detailed exploration of the galaxy. Long-range scanners and anti-scanner jamming devices can now be researched."
  302. Case 6
  303.     'bigger ships research done
  304.     imgTech.Picture = imgScience1.Picture
  305.     lblTitle.Caption = "Ship Capacity Expanded!"
  306.     lblDescription.Caption = "Advances in ship design allow for unlimited expansion of the warp ship's transport capacity. The possibility of ultra-warp travel can now be researched."
  307. Case 7
  308.     'UltraWarp research done
  309.     imgTech.Picture = imgUltraWarp.Picture
  310.     lblTitle.Caption = "UltraWarp Engines Developed!"
  311.     lblDescription.Caption = "UltraWarp engines greatly increase the range of warp ships, almost doubling the possible distance travelled."
  312. Case 8
  313.     'deep scanner research done
  314.     imgTech.Picture = imgDeepScanner.Picture
  315.     lblTitle.Caption = "Deep-Space Scanner Researched!"
  316.     lblDescription.Caption = "Advanced optical technology expands the range of your new and existing scanners."
  317. Case 9
  318.     'jammer research done
  319.     imgTech.Picture = imgJam.Picture
  320.     lblTitle.Caption = "Anti-Scanner Jamming Researched!"
  321.     lblDescription.Caption = "Planets can now be shielded from enemy scanners with new jamming technologies."
  322. Case 10
  323.     'cloaking device done
  324.     imgTech.Picture = imgCloaking.Picture
  325.     lblTitle.Caption = "Cloaking Device Research Complete!"
  326.     lblDescription.Caption = "The Cloaking Device allows warp ships to travel almost completely undetected through the warp path. Ships must be specially fitted with the device for each launch."
  327. Case 11
  328.     'Missile1
  329.     imgTech.Picture = imgMissile1.Picture
  330.     lblTitle.Caption = "Missile Research (Level I) Complete!"
  331.     lblDescription.Caption = "Missiles provide a basic level of defense against invading forces. More advanced missile technology can now be researched."
  332. Case 12
  333.     'Missile2
  334.     imgTech.Picture = imgScience1.Picture
  335.     lblTitle.Caption = "Missile Research (Level II) Complete!"
  336.     lblDescription.Caption = "Advanced rocket technology provides greater protection against attempted enemy landings."
  337. Case 13
  338.     'Laser rifle
  339.     imgTech.Picture = imgLaser.Picture
  340.     lblTitle.Caption = "Laser Rifle Research Complete!"
  341.     lblDescription.Caption = "Troops are now outfitted with laser rifles for increased combat performance. Even greater firepower is possibile with Plasma Rifles."
  342. Case 14
  343.     'plasma rifle
  344.     imgTech.Picture = imgScience2.Picture
  345.     lblTitle.Caption = "Plasma Rifle Research Complete!"
  346.     lblDescription.Caption = "Troops are now outfitted with plasma rifles, and their combat strength is dramatically improved."
  347. Case 15
  348.     'Biorocket
  349.     imgTech.Picture = imgScience2.Picture
  350.     lblTitle.Caption = "BioHazard Rocket Research Complete!"
  351.     lblDescription.Caption = "These rockets contaminate target planets with a deadly mixture of radiation and biochemical weapons, destroying resource capacity and rendering planets all but uninhabitable."
  352. Case 16
  353.     'long biorocket
  354.     imgTech.Picture = imgScience1.Picture
  355.     lblTitle.Caption = "Long-Range BioHazard Rocket Research Complete!"
  356.     lblDescription.Caption = "The destructive power of the BioHazard Rockets can now be unleashed on a wider range of targets."
  357. Case 17
  358.     'shipshield1
  359.     imgTech.Picture = imgShield.Picture
  360.     lblTitle.Caption = "Ship Shields (Level I) Research Complete!"
  361.     lblDescription.Caption = "These shields provide basic protection against a planet's missile or plantary shield defenses. More advanced shielding can now be researched. Sabotage missions can be launched once Mechanized Assault Troop technology has been researched."
  362. Case 18
  363.     'shipshield2
  364.     imgTech.Picture = imgScience2.Picture
  365.     lblTitle.Caption = "Ship Shields (Level II) Research Complete!"
  366.     lblDescription.Caption = "Advanced Shields provide the maximum level of protection for ships attacking enemy planets. "
  367.     Player(Current).ShipShield2Researched = True
  368.     'this seems to solve the problem of this research item not being recognized...
  369. Case 19
  370.     'biocleanup
  371.     imgTech.Picture = imgScience1.Picture
  372.     lblTitle.Caption = "BioHazard Cleanup Research Complete!"
  373.     lblDescription.Caption = "Contaminated planets can be detoxified and returned to a habitable state. With additional research, a planet's resource capacity can also be regenerated."
  374. Case 20
  375.     'regeneration
  376.     imgTech.Picture = imgScience2.Picture
  377.     lblTitle.Caption = "Regeneration Research Complete!"
  378.     lblDescription.Caption = "Previously contaminated planets can have their resource protential rejuvenated, and possibly even increased, through advanced environmental technology."
  379. Case 21
  380.     'warp scanner
  381.     imgTech.Picture = imgScience1.Picture
  382.     lblTitle.Caption = "Warp Scanner Research Complete!"
  383.     lblDescription.Caption = "Using the warp scanner, you can preview the possible landing sites of enemy ships in the warp path."
  384. End Select
  385. End Sub
  386.